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Tg~pep= 138% 90: 9:4 VAX=-11 FORTRAN V3.4=-56 page 1 
-Sep-1984 14:24:4 DISKSVMSMASTER: CERF .SRCJUNDEF INED.FOR; 
SUBROUTINE UNDEFINED (LUN) 
Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE W TH RM T 
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* IN : E 5 E OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR SE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. . 
ay ® 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
& * 
® ® 
® * 
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AUTHOR BRIAN PORTER CREATION DATE 11=DEC-1979 


+ 
+ 


Functional description: 


This module displays entries that are caused by UNDEFINED INTERRUPTS. 
An Undefined Interrupt is when an interrupt occurs through an 
uninitialized SCB vector. 


Modified by: 

V03-001 SARO104 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 


v02-001 BP0001 Brian Porter, 1-JUL-1981 
Added call to LOGGER. Added 11/7zz support. 
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INCLUDE ‘SRC$:MSGHDR.FOR /NOLIST‘ 
INCLUDE *SRC$:SYECOM.FOR /NOLIST' 
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UNDEF INED Igege -1984 00:29:4 VAX=-11 FORTRAN V3.4-56 Pa 
met 903254 DISKSVMSMASTER: CERF. RCJUNDEFINED.FOR: 4. : 


BYTE LUN 
INTEGER®4 ADAPTER_TR 
INTEGER®4 SLOT_INDEX 
INTEGER®4 SB1_REGA 
INTEGER®4 csRO 
INTEGER®4 COMPRESS4 


EQUIVALENCE (EMB(16) ,ADAPTER_TR,SLOT_INDEX) 
EQUIVALENCE (EMB(20) ,SBI_REGA,CSRO) 


[=] 

PIPIPIPUPOPOPOPUPIPOPoPoNofyunoefnorornyd 
PAPE MAGIA BB 
WN SO ODONAVEWN “OODONOUEW 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
02 
02 
0 CALL FRCTOF (LUN) 
sts 
0265 
osee 
0267 
0268 entry b_undefined (Lun) 
0370 
0270 
0271 
bere 
ost 7 call header (Lun) 
0375 call logger (lun,"UNDEFINED INTERRUPT') 
0377 if ¢ 
0278 1 LibSextzv(24,8,emb$l_hd_sid) .eq. 255 
fte4 1 .or. 
0280 1 LibSextzv(24,8,emb$l_hd_sid) .eq. 1 
8 a 1) then 
68 CALL LINCHK (LUN,2) 
0285 WRITE(LUN,10) ADAPTER_TR 
9586 10 FORMAT(/* *,*ADAPTER TR# *,1<COMPRESS4 (ADAPTER_TR)>,*.') 
0 ey CALL CLASSIFY (LUN,SBI_REGA) 
90 else if ¢ 
4 : LibSextzv(24,8,emb$l_hd_sid) .eq. 2 
or. 
é 1 LibSextzv(24,8,emb$l_hd_sid) .eq. 3 
$e 1) then 
4 CALL LINCHK (LUN,2) 
98 WRITE(LUN,20) SLOT_INDEX 
0299 20 FORMAT(/* *,*ADAPTER SLOT INDEX# °,1<COMPRESS4 (SLOT_INDEX)>,*.") 


UNDEF INED 
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RETURN 

END 


CALL LINCHK (LUN,1) 


ENTRY POINTS 
Address Type 
0-00000017 


VARIABLES 


Total Space Allocated 


Name 
B_UNDEF INED 


Name 
ADAPTER. TR 
corerKe FLAG 
EMBSW_HD_ENTRY 
END_VALUE 

FORAS 

LSTLUN 
RAILBOX_ CHANNEL 
PRINTER” 
RECORD SIZE 
SLOT_IRDEX 


Address 
0-00000000 
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DISKSVMSMASTER: 


30 18, ADAPTER CSR ',124,78.8) 


Attributes 
PIC CON REL LCL SHR XE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Type Name 
UNDEF INED 
Address Type Name 
4-00000012 L*1 CP_11750 
4-000000135 L*1 CP 11722 
-00000014 I*4 CSRO 
-00000000 I*4 EMBS$L_HD_SID 
~QOQ00000E I*2 EMBSW_HD_ERRSEQ 
4- Widt L*1 €EOF_FCAG 
4- OC L*il LINES 
AP- 8 0048 L*1 LUN 
4- 0 4 CHAR OPTIONS 
4- I1*4 RECCNT 
3- 4 I*4 SBI_REGA 
19 L*1 VALTD_CLASS 
“28 18 *] VALID ENTRY 
000018 L*1 VOLUME_OUTPUT 
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UNDEF INED 1g: 25-19 4 99: $: 3 VAX=-11 FORTRAN Rif 4-56 pope 4 
-Sep-1984 DISKSVMSMASTER: CERF .SRCJUNDEF INED.FOR; 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 L*1 EMB 51 (0:511) 
-00000006 I1*4 EMBSQ_HD_TIME i (3) 
1-00000024 10° 1-00000040 20' 1-00000064 30° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CLASSIFY I*4 COMPRESS4 FRCTOF HEADER I*4 LIBSEXTZV LINCHK 
LOGGER 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:UNDEF INED/OBJ=0BJ$:UNDEF INED MSRC$:UNDEF INED 
Ait ae i 


/STANDARD= (NOS YNTAX 
/SHOW= (NOPREPR PROCESSOR NOINCLODE ,MA 
/F77 /NOG_FLOATING /14 SOPTIMITE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 
Run Time: g-08 seconds 
Elapsed Time: -45 seconds 
Page Faults: 166 
Dynamic Memory: 171 
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LABELS 
Address Label Address Label Address Label 
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EQUIPMENT CORPORATION 
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